home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / ADCALC.ZIP / DEMOCALC.ZIP / CALCDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-11  |  6.6 KB  |  224 lines
  1. unit Calcdemo;
  2.  
  3.  
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, DB, DBTables,
  10.   Grids, DBGrids, DBCtrls, TabNotBk, Adcalcbt;
  11.  
  12. type
  13.   TTAdrockCalcEditDemoForm = class(TForm)
  14.     Panel1: TPanel;
  15.     Label1: TLabel;
  16.     Panel2: TPanel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     Bevel1: TBevel;
  20.     DataSource1: TDataSource;
  21.     Table1: TTable;
  22.     TabbedNotebook1: TTabbedNotebook;
  23.     Panel5: TPanel;
  24.     Label6: TLabel;
  25.     Label8: TLabel;
  26.     Bevel2: TBevel;
  27.     DBNavigator1: TDBNavigator;
  28.     DBGrid1: TDBGrid;
  29.     Label17: TLabel;
  30.     Label18: TLabel;
  31.     Label20: TLabel;
  32.     Label19: TLabel;
  33.     Panel4: TPanel;
  34.     SetCalendarFontButton: TBitBtn;
  35.     FontDialog1: TFontDialog;
  36.     Label26: TLabel;
  37.     Label27: TLabel;
  38.     Label28: TLabel;
  39.     Label29: TLabel;
  40.     Label30: TLabel;
  41.     Label31: TLabel;
  42.     Label32: TLabel;
  43.     Label4: TLabel;
  44.     Label7: TLabel;
  45.     Label22: TLabel;
  46.     Label5: TLabel;
  47.     GroupBox2: TGroupBox;
  48.     RadioButton7: TRadioButton;
  49.     RadioButton8: TRadioButton;
  50.     RadioButton9: TRadioButton;
  51.     GroupBox3: TGroupBox;
  52.     GroupBox4: TGroupBox;
  53.     GroupBox5: TGroupBox;
  54.     RadioButton3: TRadioButton;
  55.     RadioButton4: TRadioButton;
  56.     RadioButton5: TRadioButton;
  57.     RadioButton6: TRadioButton;
  58.     Label23: TLabel;
  59.     ShowButtonNeverRadioButton: TRadioButton;
  60.     RadioButton11: TRadioButton;
  61.     RadioButton12: TRadioButton;
  62.     VersionLabel: TLabel;
  63.     AdrockCalcEdit1: TAdrockCalcEdit;
  64.     AdrockCalcEdit2: TAdrockCalcEdit;
  65.     AdrockCalcEdit3: TAdrockCalcEdit;
  66.     AdrockCalcEdit4: TAdrockCalcEdit;
  67.     AdrockCalcEdit5: TAdrockCalcEdit;
  68.     AdrockCalcEdit6: TAdrockCalcEdit;
  69.     Table1EmpNo: TIntegerField;
  70.     Table1LastName: TStringField;
  71.     Table1FirstName: TStringField;
  72.     Table1Salary: TFloatField;
  73.     AdrockCalcEdit7: TAdrockCalcEdit;
  74.     Label10: TLabel;
  75.     ShowCalcFunctionsCheckBox: TCheckBox;
  76.     SpaceBetweenButtonsLabel: TLabel;
  77.     ScrollBar1: TScrollBar;
  78.     Label9: TLabel;
  79.     Bevel4: TBevel;
  80.     AdrockCalcEdit9: TAdrockCalcEdit;
  81.     AdrockCalcEdit10: TAdrockCalcEdit;
  82.     AdrockCalcEdit11: TAdrockCalcEdit;
  83.     Label11: TLabel;
  84.     Label12: TLabel;
  85.     Label13: TLabel;
  86.     Label14: TLabel;
  87.     Label15: TLabel;
  88.     Label16: TLabel;
  89.     MaxDecimalsLabel: TLabel;
  90.     ScrollBar2: TScrollBar;
  91.     procedure SetCalendarFontButtonClick(Sender: TObject);
  92.     procedure RadioButton3Click(Sender: TObject);
  93.     procedure RadioButton4Click(Sender: TObject);
  94.     procedure RadioButton5Click(Sender: TObject);
  95.     procedure RadioButton6Click(Sender: TObject);
  96.     procedure RadioButton7Click(Sender: TObject);
  97.     procedure RadioButton8Click(Sender: TObject);
  98.     procedure RadioButton9Click(Sender: TObject);
  99.     procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  100.       var AllowChange: Boolean);
  101.     procedure ShowButtonNeverRadioButtonClick(Sender: TObject);
  102.     procedure RadioButton11Click(Sender: TObject);
  103.     procedure RadioButton12Click(Sender: TObject);
  104.     procedure FormCreate(Sender: TObject);
  105.     procedure ShowCalcFunctionsCheckBoxClick(Sender: TObject);
  106.     procedure ScrollBar1Change(Sender: TObject);
  107.     procedure ScrollBar2Change(Sender: TObject);
  108.   private
  109.     { Private declarations }
  110.     InUpdateFromRadioButton : Boolean;
  111.   public
  112.     { Public declarations }
  113.   end;
  114.  
  115. var
  116.   TAdrockCalcEditDemoForm: TTAdrockCalcEditDemoForm;
  117.  
  118. implementation
  119.  
  120. {$R *.DFM}
  121.  
  122. procedure TTAdrockCalcEditDemoForm.SetCalendarFontButtonClick(Sender: TObject);
  123. begin
  124.      FontDialog1.Font.Assign(AdrockCalcEdit1.CalculatorFont);
  125.      FontDialog1.Execute;
  126.      AdrockCalcEdit1.CalculatorFont.Assign(fontDialog1.Font);
  127. end;
  128.  
  129. procedure TTAdrockCalcEditDemoForm.RadioButton3Click(Sender: TObject);
  130. begin
  131.      AdrockCalcEdit1.CalculatorPosition := cpLeftTop;
  132. end;
  133.  
  134. procedure TTAdrockCalcEditDemoForm.RadioButton4Click(Sender: TObject);
  135. begin
  136.     AdrockCalcEdit1.CalculatorPosition := cpRightTop;
  137. end;
  138.  
  139. procedure TTAdrockCalcEditDemoForm.RadioButton5Click(Sender: TObject);
  140. begin
  141.     AdrockCalcEdit1.CalculatorPosition := cpLeftBottom;
  142.  
  143. end;
  144.  
  145. procedure TTAdrockCalcEditDemoForm.RadioButton6Click(Sender: TObject);
  146. begin
  147.     AdrockCalcEdit1.CalculatorPosition  := cpRightBottom;
  148. end;
  149.  
  150. procedure TTAdrockCalcEditDemoForm.RadioButton7Click(Sender: TObject);
  151. begin
  152.     AdrockCalcEdit1.Alignment := taCenter;
  153. end;
  154.  
  155. procedure TTAdrockCalcEditDemoForm.RadioButton8Click(Sender: TObject);
  156. begin
  157.     AdrockCalcEdit1.Alignment := taLeftJustify;
  158. end;
  159.  
  160. procedure TTAdrockCalcEditDemoForm.RadioButton9Click(Sender: TObject);
  161. begin
  162.     AdrockCalcEdit1.Alignment := taRightJustify;
  163. end;
  164.  
  165. procedure TTAdrockCalcEditDemoForm.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  166.   var AllowChange: Boolean);
  167. begin
  168.   AllowChange := TRUE;
  169.   if (NewTab = 2) then
  170.    begin
  171.      try;
  172.        Table1.Open;
  173.      except;
  174.        MessageDlg('Sorry, unable to open the Database Table', mtError, [mbOK], 0);
  175.        AllowChange := FALSE;
  176.      end;
  177.    end
  178.   else
  179.     Table1.Open;
  180. end;
  181.  
  182. procedure TTAdrockCalcEditDemoForm.ShowButtonNeverRadioButtonClick(Sender: TObject);
  183. begin
  184.     AdrockCalcEdit1.ShowButton := sbNever;
  185. end;
  186.  
  187. procedure TTAdrockCalcEditDemoForm.RadioButton11Click(Sender: TObject);
  188. begin
  189.     AdrockCalcEdit1.ShowButton := sbFocused;
  190. end;
  191.  
  192. procedure TTAdrockCalcEditDemoForm.RadioButton12Click(Sender: TObject);
  193. begin
  194.     AdrockCalcEdit1.ShowButton := sbAlways;
  195. end;
  196.  
  197. procedure TTAdrockCalcEditDemoForm.FormCreate(Sender: TObject);
  198. begin
  199.      Caption := 'Sample program for TAdrockCalcEdit Version '+AdrockCalcedit1.Version;
  200.      VersionLabel.Caption := 'TAdrockCalcEdit Version '+AdrockCalcedit1.Version;
  201.      TabbedNotebook1.PageIndex :=0;
  202.      SpaceBetweenButtonsLabel.Caption := 'Space Between Buttons = '+IntToStr(ScrollBar1.Position);
  203.      MaxDecimalsLabel.Caption := 'Max Decimals = '+IntToStr(ScrollBar2.Position);
  204. end;
  205.  
  206. procedure TTAdrockCalcEditDemoForm.ShowCalcFunctionsCheckBoxClick(Sender: TObject);
  207. begin
  208.      AdrockCalcEdit1.ShowCalcFunctions := not AdrockCalcEdit1.ShowCalcFunctions;
  209. end;
  210.  
  211. procedure TTAdrockCalcEditDemoForm.ScrollBar1Change(Sender: TObject);
  212. begin
  213.      AdrockCalcEdit1.ButtonGap := ScrollBar1.Position;
  214.      SpaceBetweenButtonsLabel.Caption := 'Space Between Buttons = '+IntToStr(ScrollBar1.Position);
  215. end;
  216.  
  217. procedure TTAdrockCalcEditDemoForm.ScrollBar2Change(Sender: TObject);
  218. begin
  219.      AdrockCalcEdit1.MaxDecimals := ScrollBar2.Position;
  220.      MaxDecimalsLabel.Caption := 'Max Decimals = '+IntToStr(ScrollBar2.Position);
  221. end;
  222.  
  223. end.
  224.